home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club 1996 April / Software of the Month Club 1996 April.iso / pc / win / edu / profan2 / beispiel.lzh / MIDI.PRF < prev    next >
Encoding:
Text File  |  1995-07-31  |  394 b   |  20 lines
  1. CLS
  2.  
  3. Declare A$,B$
  4.  
  5. WindowTitle "Test program MIDI"
  6.  
  7. LET A$=@LOADFILE$("MIDI file","*.MID")
  8. WHILE @NEQ$(A$,"")
  9.   LET A$=@ADD$(@ADD$("OPEN ",A$)," TYPE SEQUENCER ALIAS MIDI")
  10.   LET B$=@MCISend$(A$)
  11.   If %MCIError
  12.     Print "Error: ";B$
  13.   EndIf
  14.   LET B$=@MCISend$("PLAY MIDI WAIT")
  15.   WAITMOUSE
  16.   LET B$=@MCISend$("CLOSE MIDI")
  17.   LET A$=@LOADFILE$("MIDI file","*.MID")
  18. WEND
  19.  
  20. END